28 POKE788,52:POKE53281,0:POKE53280,0:S=54272
30 PRINT"[147]"TAB(11)"LEARNING TO COUNT"
35 FORL=STOS+24:POKEL,O:NEXT:POKES+5,14:POKES+9,240:POKES+24,15:HF=S+1:LF=S
40 Z=1024:C=0:COL=S:DL(1)=10:DL(2)=25:DL(3)=35:DL(4)=50
50 FORI=0TO39:READA:READB:POKEZ+I,A:POKEZ+I+COL,B:GOSUB5000:FORT=1TO75:NEXT
52 IFB=5THENRESTORE
53 NEXT
54 FORI=0TO39:READA:READB:POKEZ+960+I,A:POKEZ+960+I+COL,B:GOSUB5000
55 FORT=1TO75:NEXT:IFB=5THENRESTORE
56 NEXT
57 FORI=0TO24:READA:READB:POKEZ+40*I,A:POKEZ+40*I+COL,B:GOSUB5000
58 FORT=1TO75:NEXT:IFB=5THENRESTORE
59 NEXT
60 FORI=0TO24:READA:READB:POKEZ+39+40*I,A:POKEZ+39+40*I+COLL,B:GOSUB5000
61 FORT=1TO75:NEXT:IFB=5THENRESTORE
62 NEXT:FORT=1TO2500:NEXT
70 PRINTCHR$(147):PRINT"    LEARNING TO COUNT[146] CAN HELP YOU"
72 PRINT"    LEARN TO COUNT UP TO 50."
73 PRINT"    ENTER 1[146], 2[146], 3[146], OR 4[146]."
75 PRINT"     UP TO 10---1[146]":PRINT"     UP TO 25---2[146]"
76 PRINT"     UP TO 35---3[146]":PRINT"     UP TO 50---4[146][145][145][145]";
80 INPUTD$:D=VAL(D$):IFD<1ORD>4THEN70
100 R=0:W=0:N=0:X=DL(D):PRINT"[147]"
206 A=(INT(X*RND(1)))*2:IFA/2+1=1THEN206
210 N=N+1:RESTORE:SCR=1304
220 FORH=0TOASTEP2:C=0
225 READL:M=INT(RND(0)*15)+1
226 IFL=5THENRESTORE
230 POKESCR+H,L:POKESCR+COL+H,M:FORT=1TO75:NEXT:GOSUB5000:FORT=1TO350:NEXT
232 IFH=39THENSCR=SCR+80
238 NEXT
239 PRINT"          ENTER 0[146] TO START OVER.":POKE198,0
240 PRINT"                ";:INPUT"  HOW MANY";Y$
245 IFY$="0"THENN=N-1:GOTO3000
250 Y=VAL(Y$)
260 IFY=H/2THENGOSUB2000:R=R+1:PRINTCHR$(147):GOTO206
270 C=C+1:IFC=3THENGOTO2500
280 PRINT"SORRY! TRY AGAIN.":FORT=1TO1700:NEXT:GOSUB4000:GOTO240
2000 PRINT"[147]"TAB(6)"    [209][209][209][209][209]        [209][209][209][209][209] "
2001 PRINTTAB(6)"   [209]     [209]      [209]     [209]"
2002 PRINTTAB(6)"     [166][166][166]          [166][166][166]  "
2003 PRINTTAB(6)"     [166][166][166]          [166][166][166] "
2004 PRINTTAB(6)"           [166][166][166][166]        "
2005 PRINTTAB(6)"[159]  [166]        [166][166][166][166]        [159][166]"
2006 PRINTTAB(6)"  [166]                    [166]"
2007 PRINTTAB(6)"   [166]                  [166] "
2008 PRINTTAB(6)"    [166]                [166]  "
2009 PRINTTAB(6)"     [166]              [166]   "
2010 PRINTTAB(6)"      [166]            [166]    "
2011 PRINTTAB(6)"       [166][166][166][166][166][166][166][166][166][166][166][166]     "
2020 GOSUB5010:RETURN
2500 PRINT"[147]"TAB(16)"WRONG![146]"
2510 PRINT""TAB(9)"THERE WERE";H/2;"[157] OBJECTS[146]"
2520 FORT=1TO800:NEXT:FORT=1TO3500:NEXT:PRINTCHR$(147):W=W+1:GOTO206
3000 PRINT"[147]"TAB(10)"YOU HAD:";N;"TRYS":PRINT""TAB(18);R;"RIGHT"
3010 PRINT""TAB(18);W;"WRONG":FORT=1TO4000:NEXT:RESTORE:GOTO50
4000 PRINT"                    ";:RETURN
5000 POKES+4,17:POKEHF,INT(RND(0)*50)+80:POKELF,250:POKES+4,16:RETURN
5010 POKES+4,17:FORM=70TO116STEP2:POKEHF,M:POKELF,INT(M/2):FORDL=1TO40:NEXT
5020 NEXT:POKES+4,16:RETURN
9000 DATA81,1,65,2,83,3,90,4,88,5,90,6,102,7,42,1,35,2,36,3,38,4,1,5